1. Pertama buat form dengan nama `frmKonversi`
  2. Tambahkan 4 label, 4 textbox, 5 button dan diberi nama seperi gambar di bawah ini
  3. Codingan yang terdapat didalamnya.
     Public Class frmKonversi
        Dim tutup As String
        Private Sub bCelcius_Click(sender As Object, e As EventArgs) Handles bCelcius.Click
            txtReamur.Text = (4 / 5) * Val(txtCelcius.Text)
            txtFahrenheit.Text = ((9 / 5) * Val(txtCelcius.Text)) + 32
            txtKelvin.Text = Val(txtCelcius.Text) + 273
        End Sub
    
        Private Sub bReamur_Click(sender As Object, e As EventArgs) Handles bReamur.Click
            txtCelcius.Text = (5 / 4) * Val(txtReamur.Text)
            txtFahrenheit.Text = ((9 / 4) * Val(txtReamur.Text)) + 32
            txtKelvin.Text = ((5 / 4) * Val(txtReamur.Text)) + 273
        End Sub
    
        Private Sub bHapus_Click(sender As Object, e As EventArgs) Handles bHapus.Click
            txtCelcius.Text = ""
            txtReamur.Text = ""
            txtFahrenheit.Text = ""
            txtKelvin.Text = ""
        End Sub
    
        Private Sub bFahrenheit_Click(sender As Object, e As EventArgs) Handles bFahrenheit.Click
            txtCelcius.Text = (5 / 9) * (Val(txtFahrenheit.Text) - 32)
            txtReamur.Text = (4 / 9) * (Val(txtFahrenheit.Text) - 32)
            txtKelvin.Text = ((5 / 9) * (Val(txtFahrenheit.Text) - 32)) + 273
        End Sub
    
        Private Sub bKelvin_Click(sender As Object, e As EventArgs) Handles bKelvin.Click
            txtCelcius.Text = Val(txtKelvin.Text) - 273
            txtReamur.Text = ((4 / 5) * Val(txtKelvin.Text) - 273)
            txtFahrenheit.Text = ((9 / 5) * Val(txtKelvin.Text) - 459)
    
        End Sub
    
        Private Sub bExit_Click(sender As Object, e As EventArgs) Handles bExit.Click
            tutup = MessageBox.Show("Anda yakin ingin menutup form ini ?", "Keluar", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If tutup = MsgBoxResult.Yes Then
                End
            End If
        End Sub
    End Class