Visual basic Part 4 ( Konversi Suhu )

Dim f As Integer
Dim C As Integer

Private Sub CMDK_Click()
    End
End Sub

Private Sub VSB_Change()
    f = VSB.Value
    LBLF.Caption = Str(f)
    C = Int((f - 32) * 5 / 9)
    LBLC.Caption = Str(C)
End Sub

Private Sub VSB_Scroll()
   f = VSB.Value
   LBLF.Caption = Str(f)
   C = Int((f - 32) * 5 / 9)
   LBL.Caption = Str(C)
End Sub