The Weird and The Wonderful

Public Sub Round100(ByRef amount As Long)
    If (Math.IEEERemainder(CDbl(amount), CDbl(100)) <> 0) Then
        amount = CLng(System.Math.Floor(amount / 100))
        amount += 1
        amount *= 100
    End If
End Sub

void Round100(long &amount)
{
    if (fmod((double)amount, (double)100) != 0)
    {
        amount/=100;
        amount++;
        amount*=100;
    }
}

public class CleverConvert 
{ 
    
    public static object IsNull(object value, object default_value) 
    { 
        if (value == null) { 
            return default_value; 
        } 
        return value; 
    } 
    
    public static object IsDbNullOrNull(object value, object default_value) 
    { 
        if (value == null | object.ReferenceEquals(value, DBNull.Value)) { 
            return default_value; 
        } 
        return value; 
    } 
    
    public static object IsDBNull(object value, object default_value) 
    {
        return null;// CleverConvert.IsDBNull(value, default_value, value); 
    } 
    
    public static object IsDBNull(object value, object default_value, object else_value) 
    { 
        if (object.ReferenceEquals(value, DBNull.Value)) { 
            return default_value; 
        } 
        return else_value; 
    } 
    
    public static string FormatDbNullDate(object value, string format) 
    { 
        string result = ""; 
        if ((!object.ReferenceEquals(value, DBNull.Value)) & (value != null)) { 
            result = ((DateTime)value).ToString(format); 
        } 
        return result; 
    } 
    
    public static object IsEmptyString(string value, object default_value) 
    { 
        return IsEmptyString(value, default_value, value); 
    } 
    
    public static object IsEmptyString(string value, object default_value, object else_value) 
    { 
        if (value == "") { 
            return default_value; 
        } 
        return else_value; 
    }
}

Private Sub Command16_Click()
 Open asc & "Read" & File2.FileName For Input As #1
  Line Input #1, dat
  Line Input #1, doo
  Line Input #1, od
  Line Input #1, temat
 Close
 Form2.Text1 = "Answer - " & od
 Form2.Text2 = doo
 Form2.Text3 = "Answer - " & temat
 Form2.Text4 = "This is an answer to a message received in " & dat & "."
 Form2.Show
End Sub

Private Sub Command6_Click()
 Form4.Show
End Sub

Private Sub Command7_Click()
 Frame1.Visible = True
 Frame2.Visible = False
 Frame3.Visible = False
  Frame4.Visible = False
 File1.Refresh
End Sub

Private Sub Command8_Click()
 Frame1.Visible = False
 Frame2.Visible = True
 Frame3.Visible = False
  Frame4.Visible = False
 File2.Refresh
End Sub


Private Sub Command9_Click()
 Frame1.Visible = False
 Frame2.Visible = False
 Frame3.Visible = True
 Frame4.Visible = False
 File3.Refresh
End Sub

Private Sub File1_DblClick()
 If File1.ListIndex = -1 Then Exit Sub
  sws = File1
  Form3.Show
End Sub
'
' ( 22 handlers named Command1_Click to Command22_Click )
'
Private Sub Form_Load()
On Error GoTo 1
 'Exit Sub
 Label5 = "Welcome, it's " & Format$(Now, "long date") & ", time" & Time$
 ChDir App.Path
 asc = App.Path & "\"
 Label4 = asc & "user.ini"
 Command7.Picture = LoadPicture(asc & "unr.ico")
 Command8.Picture = LoadPicture(asc & "read.ico")
 Command9.Picture = LoadPicture(asc & "deleted.ico")
 Command10.Picture = LoadPicture(asc & "user.ico")
 If Len(App.Path) = 3 Then asc = App.Path
 Close
 On Error GoTo 6
7:
 'Open asc & "opwp.ini" For Input As #1
 ' Line Input #1, ow
 ' owp = ow
 'Close
 Load Form8
 Open asc & "InLookcon.ini" For Input As #1
 Line Input #1, d1
 Line Input #1, d2
 Line Input #1, d3
 Close #1
 File1.Path = d1
 If d2 = "ask" Then
  If File1.ListCount = 0 Then
   X = MsgBox("There are no new messages. Do you want to start InLook?", 32 + 4)
   If Not X = 6 Then End
  End If
 ElseIf d2 = "norun" Then
  End
 End If
 Label1 = d1
 zapis = d3
 On Error Resume Next
 File2.Path = asc & "Read"
 If Err > 0 Then
  MkDir asc & "Read"
  Err = 0
 End If
 File2.Path = asc & "Read"
 Label2 = File2.Path
 File3.Path = asc & "Deleted"
 If Err > 0 Then
  MkDir asc & "Deleted"
  Err = 0
 End If
 File3.Path = asc & "Deleted"
 Label3 = File3.Path
 On Error GoTo 2
4:
 Open asc & "user.ini" For Input As #1
3:
 If Not EOF(1) Then
  Line Input #1, a
  List1.AddItem a
  GoTo 3
 End If
 Close
 Open asc & "usop.ini" For Input As #1
  Line Input #1, opu
  opus = opu
 Close
 Exit Sub
1:
 MsgBox "Error. Required files are missing I suppose. Run ''Repair.exe''!", 0 + 16
 End
 Resume
2:
Close
 Open asc & "user.ini" For Output As #1
 Print #1, "Error occured: users was reset."
 Close
 GoTo 6
Resume
6:
Open asc & "opwp.ini" For Output As #1
 Print #1, "1"
Close #1
GoTo 7
End Sub